64'er Special 27/64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_B.d64/matrixexpress v3

Commodore BASIC | 2022-10-26 | 15KB | 833 lines

10 sys 32768
12 .opt p,m,oo
14 ;
20 ;-----------------------------------
200 offmac .mac a,b,c
202 lda a
204 sta $c1
206 lda b
208 sta $c2
210 ldy c
212 jsr offset
214 .men
218 ;----------------------------------
300 matfunk .mac sprzl,zahl
302 ldx #zahl
304 loop inc $7a
306 bne .less1
308 inc $7b
310 less1 dex
312 bne .loop
340 jsr sprzl
342 jmp $a7ae
344 .men
350 ;----------------------------------
352 text .mac textn
354 lda #<textn
355 sta $22
356 ldy #>textn
357 sty $23
359 jsr strout
360 .men
362 ;----------------------------------
370 cursor .mac zeile,spalte
372 ldx #zeile
374 ldy #spalte
376 stx $d6
378 sty $d3
380 jsr setcrs
382 .men
384 ;----------------------------------
804 ;
806 calc   = $c975 ; calc.-basis
808 lcalc  = <calc
810 hcalc  = >calc
812 lc8    = <calc+12
814 hc8    = >calc+12
816 lc13   = <calc+17
818 hc13   = >calc+17
820 lc18   = <calc+22
821 hc18   = >calc+22
822 lc23   = <calc+27
823 hc23   = >calc+27
824 komma  = $aefd
825 strout = $ab1e
826 chrget = $0073
828 chr(NULL)t = $0079
830 facabs = $bc58
832 cmpfac = $bc5b
834 mdiv   = $bb0f
836 intmul = $b34c
838 memfac = $bba2
840 facmem = $bbd7
842 ptrvar = $b0e7
844 msub   = $b850
846 madd   = $b867
848 mmult  = $ba28
850 ready  = $a474
852 aryget = $b194
854 scrtch = $a644
856 chrout = $ffd2
858 setcrs = $e56c
890 ;
892 *= $c000
894 ;
896 ;----------------------------------
900 lda #$0b
902 sta $0308     ; i(NULL)ne lo
904 lda #$c0
906 sta $0309     ; i(NULL)ne hi
907 jsr titel
908 rts
910 ;
912 jsr chrget
914 cmp #$40      ; ascii fuer @
916 beq neubef    ; neuer befehl
918 jmp $a7e7     ; kein neuer befehl
920 neubef jsr chrget
922 cmp #"a"
924 bne funk2
926 'matfunk add,$03
928 funk2 cmp #"e"
930 bne funk3
932 'matfunk equ,$03
934 funk3 cmp #"m"
936 bne funk4
938 'matfunk mul,$03
940 funk4 cmp #"d"
942 bne funk5
944 'matfunk det,$03
946 funk5 cmp #"i"
948 bne funk6
950 'matfunk inv,$03
952 funk6 cmp #"s"
954 bne funk8
960 jsr chrget
962 cmp #"u"
964 bne funk7
966 'matfunk sub,$02
968 funk7 'matfunk skp,$02
970 funk8 rts
999 ;----------------------------------
1000 ; equivalenz (a)=(b)
1002 ; ******************
1004 equ lda #$08
1006 sta $fb
1008 jsr aryfnd
1010 equiv lda #00
1012 sta $fc
1014 fl16 lda #00
1016 sta $fb
1018 fl15 lda calc
1020 ldy calc+1
1022 jsr memfac
1024 ldx calc+4
1026 ldy calc+5
1028 jsr facmem
1030 jsr eladd
1032 inc $fb
1034 lda $fb
1036 cmp calc+3
1038 bne fl15
1040 inc $fc
1042 lda $fc
1044 cmp calc+2
1046 bne fl16
1048 rts
1050 ;---------------------------------
1100 ; addition (a)+(b)=(c)
1102 ; ********************
1104 add lda #$0c ; parameteranzahl
1106 sta $fb
1108 jsr aryfnd
1110 lda #00
1112 sta $fc
1114 fl6 lda #00
1116 sta $fb
1118 fl5 lda calc
1120 ldy calc+1
1122 jsr memfac
1124 lda calc+4
1126 ldy calc+5
1128 jsr madd
1130 ldx calc+08
1132 ldy calc+09
1134 jsr facmem
1136 jsr eladd
1138 inc $fb
1140 lda $fb
1142 cmp calc+3
1144 bne fl5
1146 inc $fc
1148 lda $fc
1150 cmp calc+2
1152 bne fl6
1154 rts
1156 ;---------------------------------
1500 ; subtraktion (a)-(b)=(c)
1502 ; ***********************
1504 sub lda #$0c
1506 sta $fb
1508 jsr aryfnd
1510 lda #00
1512 sta $fc
1514 fl7 lda #00
1516 sta $fb
1518 fl8 lda calc+4
1520 ldy calc+5
1522 jsr memfac
1524 lda calc
1526 ldy calc+1
1528 jsr msub
1530 ldx calc+08
1532 ldy calc+09
1534 jsr facmem
1536 jsr eladd
1538 inc $fb
1540 lda $fb
1542 cmp calc+3
1544 bne fl8
1546 inc $fc
1548 lda $fc
1550 cmp calc+2
1552 bne fl7
1554 rts
1556 ;---------------------------------
2000 ; multiplikation (a)*(b)=(c)
2002 ; **************************
2004 mul lda #$0c
2006 sta $fb
2008 jsr aryfnd
2010 lda #00
2012 sta $8b         ; index i=0
2014 mrk11 lda #00
2016 sta $8c         ; index j=0
2018 mrk8 lda #00
2020 sta $8d         ; index k=0
2022 lda $8b
2024 sta $c1
2026 lda $8c
2028 sta $c2
2030 ldy #$08
2032 jsr offset
2034 sta $24
2036 sty $25
2038 lda #00
2040 ldx #00
2042 sta ($24),x   ; c(i,j)=0 setzen
2044 mrk6 lda $8b
2046 sta $c1
2048 lda $8d
2050 sta $c2
2052 ldy #$00
2054 jsr offset
2056 sta calc+$0c
2058 sty calc+$0d
2060 lda $fe      ; zeilen der a-matrix
2062 sta $8e
2064 lda $8d
2066 sta $c1
2068 lda $8c
2070 sta $c2
2072 ldy #$04
2074 jsr offset
2076 jsr memfac
2078 lda calc+$0c
2080 ldy calc+$0d
2082 jsr mmult
2084 lda $24
2086 ldy $25
2088 jsr madd
2090 ldx $24
2092 ldy $25
2094 jsr facmem
2096 lda $fe      ; zeilen der b-matrix
2098 cmp $8d
2100 beq mrk7
2102 inc $8d
2104 jmp mrk6     ; k-schleife
2106 mrk7 lda $fd ; spalten der b-matrix
2108 cmp $8c
2110 beq mrk9
2112 inc $8c
2114 jmp mrk8     ; j-schleife
2116 mrk9 lda $8e ; zeilen der a-matrix
2118 cmp $8b
2120 beq mrk10
2122 inc $8b
2124 jmp mrk11
2126 mrk10 rts
2128 ;---------------------------------
2200 ;skalarprodukt (a)*k=(a)
2202 ;***********************
2204 skp lda #$04
2206 sta $fb
2208 jsr aryfnd
2210 jsr varnam1
2212 jsr ptrvar   ; zeiger auf kprint[\.m*skpdt lda #00
2222 sta $fc
2224 fl26 lda #00
2226 sta $fb
2228 fl25 lda calc
2230 ldy calc+1
2232 jsr memfac
2234 lda $47
2236 ldy $48
2238 jsr mmult
2240 ldx calc
2242 ldy calc+1
2244 jsr facmem
2246 jsr eladd
2248 inc $fb
2250 lda $fb
2252 cmp calc+3
2254 bne fl25
2256 inc $fc
2258 lda $fc
2260 cmp calc+2
2262 bne fl26
2264 rts
2266 ;---------------------------------
2500 ;determinante det(a)=d
2502 ;*********************
2504 det lda #$00
2505 sta $c3
2506 lda #$04
2508 sta $fb
2509 jsr aryfnd
2510 hptdet ldx calc+2
2511 dex
2512 stx $a6
2513 determ lda #00
2514 sta $8e      ; n1=0
2516 sta $8b      ; i=0
2518 sch1 lda $8b
2520 cmp $a6      ; vergl.i=n
2522 bne cnd1a
2524 jmp cnd1
2526 cnd1a 'offmac $8b,$8b,$c3
2528 jsr memfac
2530 jsr facabs   ; betrag in fac1
2532 ldx #lc8
2534 ldy #hc8
2536 jsr facmem ; a=abs(a(i,i))
2538 ldy $8b
2540 sty $8f      ; z1=i
2542 iny
2544 sty $8d      ; k=k+1
2546 sch2 'offmac $8d,$8b,$c3
2548 jsr memfac
2550 lda #lc8
2552 ldy #hc8
2554 jsr cmpfac   ; abs(a(k,j))<=a
2556 cmp $b9bc    ; vergl. accu=1
2558 beq cnd2a
2560 lda $8d
2562 jmp cnd2
2564 cnd2a ldx #lc8
2566 ldy #hc8
2568 jsr facmem   ; a=abs(a(k,i))
2570 lda $8d
2572 sta $8f      ; z1=k
2574 cnd2 cmp $a6; vergl. k=n
2576 beq sch2e
2578 inc $8d      ; k=k+1
2580 jmp sch2     ; k-schleife
2582 sch2e lda $8f
2584 cmp $8b
2586 bne cnd1b
2588 jmp cnd1
2590 cnd1b lda #00
2592 sta $8c
2594 sch3 'offmac $8b,$8c,$c3
2596 jsr memfac
2598 ldx #lc13
2600 ldy #hc13
2602 sta $8c      ; j=0
2604 jsr facmem   ; b ablegen
2606 'offmac $8f,$8c,$c3
2608 sta $71
2610 sty $72
2612 jsr memfac   ; a(z1,j) in fac1
2614 'offmac $8b,$8c,$c3
2616 tax
2618 jsr facmem   ; a(i,j)=a(z1,j)
2620 lda #lc13
2622 ldy #hc13
2624 jsr memfac   ; b nach fac1
2626 ldx $71
2628 ldy $72
2630 jsr facmem   ; a(z1,j)=b
2632 lda $8c
2634 cmp $a6
2636 beq sch3e
2638 inc $8c
2640 jmp sch3     ; j-schleife
2642 sch3e nop    ; ende j-schleife
2644 inc $8e      ; n1=n1+1
2646 cnd1 lda #00
2648 sta $8d      ; k=0
2650 sch4 lda $8d
2652 cmp $8b
2654 bne cnd3a    ; bei k=i
2656 jmp cnd3
2658 cnd3a ldx #00
2660 null lda #00
2662 sta $61,x
2664 inx
2666 cpx #$06     ; fac1=0 setzen
2668 bne null
2670 'offmac $8b,$8b,$c3
2672 jsr cmpfac   ;vergl.fac1(0)=a(i,i)
2674 cmp #00
2676 bne cnd3b
2678 jmp cnd3
2680 cnd3b 'offmac $8b,$8b,$c3
2682 jsr memfac   ; a(i,i) divisor
2684 'offmac $8d,$8b,$c3
2686 jsr mdiv     ; a(k,i)/a(i,i)
2688 ldx #lc18
2690 ldy #hc18
2692 jsr facmem
2694 lda #00
2696 sta $8c      ; j=0
2698 sch5 'offmac $8b,$8c,$c3
2700 jsr memfac
2702 lda #lc18
2704 ldy #hc18
2706 jsr mmult
2708 'offmac $8d,$8c,$c3
2710 sta $71
2712 sty $72
2714 jsr msub
2716 ldx $71
2718 ldy $72
2720 jsr facmem   ; a(k,j)
2722 lda $8c
2724 cmp $a6      ; vergl. j=n
2726 beq sch5e
2728 inc $8c
2730 jmp sch5
2732 sch5e nop
2734 cnd3 lda $8d
2736 cmp $a6
2738 beq sch4e
2740 inc $8d
2742 jmp sch4     ; k-schleife
2744 sch4e lda $8b
2746 cmp $a6
2748 beq sch1e
2750 inc $8b
2752 jmp sch1     ; i-schleife
2754 sch1e lda #00
2756 sta $8b
2758 'offmac $8b,$8b,$c3
2760 jsr memfac
2762 ldx #lc8
2764 ldy #hc8
2766 jsr facmem   ; d=a(1,1)
2768 lda #01
2770 sta $8b
2772 sch6 'offmac $8b,$8b,$c3
2774 jsr memfac
2776 lda #lc8
2778 ldy #hc8
2780 jsr mmult    ; d*a(i,i)
2782 ldx #lc8
2784 ldy #hc8
2786 jsr facmem
2788 lda $8b
2790 cmp $a6
2792 beq sch6e
2794 inc $8b
2796 jmp sch6
2798 sch6e nop
2799 ror $8e
2800 bcc cnd5
2802 lda $66
2803 cmp #$80     ; bereits negativ
2804 lda #$01
2805 sta $66
2806 bcs cnd5
2807 lda #$ff
2808 sta $66
2809 cnd5 lda $c3
2810 cmp #$00
2811 bne detfin
2812 jsr varnam1
2813 jsr ptrvar   ; variable such./anl.
2814 ldx $47
2816 ldy $48
2818 jsr facmem
2820 detfin rts
2822 ;---------------------------------
2900 ; inverse matrix inv(a)=b
2902 ; ***********************
2904 inv lda #$0c
2908 sta $fb
2910 jsr aryfnd
2920 ldy #00
2922 loop1 lda calc,y
2924 pha
2926 iny
2928 cpy $fb
2930 bcc loop1
2932 beq loop1
2934 jsr equiv
2939 ldy #$0c
2940 loop2 pla
2942 sta calc,y
2944 dey
2948 bpl loop2
2950 lda #$04
2952 sta $c3
2954 jsr hptdet
2955 jsr pruef    ; umkehrbarkeit prfn.
2956 lda #$bc     ; lo adresse von 1
2958 ldy #$b9     ; hi    "
2960 jsr mdiv
2962 ldx #lc23
2964 ldy #hc23
2966 jsr facmem
3011 ldx calc[170]2
3012 dex
3014 txa
3016 sta $fd       ; n
3020 sta $8f
3024 dec $8f       ; n[171]1
3028 lda #00
3032 zwg11 sta $8b ; index i[178]0
3036 lda #00
3040 zwg9 sta $8c  ; index j[178]0
3044 lda #00
3048 zwg6 sta $8d  ; index k[178]0
3052 lda #00
3056 zwg4 sta $8e  ; index l[178]0
3060 lda #00
3064 sta $c3
3068 lda $8d
3072 sta $c1
3076 cmp $8c       ; c[171]flag bei [177][178]
3080 bcc zwg1
3084 inc $c1       ; k[170](k[177][178]j)
3088 zwg1 lda $8e
3092 sta $c2
3096 cmp $8b
3100 bcc zwg2
3104 inc $c2       ; l[170](l[177][178]i)
3108 zwg2 'offmac $c1,$c2,$c3
3112 jsr memfac
3116 lda $8d
3120 sta $c1
3124 lda $8e
3128 sta $c2
3132 ldy #$08
3136 jsr offset
3140 jsr facmem    ; b(k,l) ablegen
3144 lda $8e
3148 cmp $8f
3152 beq zwg3
3156 inc $8e
3158 lda $8e
3160 jmp zwg4      ; l[171]schle[139]e
3164 zwg3 lda $8d
3168 cmp $8f
3172 beq zwg5
3176 inc $8d
3178 lda $8d
3180 jmp zwg6      ; k[171]schle[139]e
3182 zwg5 lda #00
3183 cmp $8f
3184 bne det1      ; det.index [177]1
3188 jmp det2
3190 det1 ldy #00
3192 loopa lda $8b,y
3194 pha
3196 iny
3198 cpy #$05
3200 bne loopa
3212 lda $fd
3214 pha
3218 lda $8f       ; det.index reduz.
3222 sta $a6
3226 lda #$08
3230 sta $c3       ; offset f.determin.
3234 jsr determ
3250 pla           ; indicees zurueck
3252 sta $fd
3254 ldy #$04
3256 loopb pla
3258 sta $8b,y
3260 dey
3262 bpl loopb
3284 det2 clc
3285 lda $8b
3286 adc $8c
3288 r[176]
3292 bcc zwg7
3294 lda $66
3295 cmp #$80      ; bereits negativ,
3296 lda #$01      ; dann [185]itiv
3297 lda #$01
3298 sta $66
3299 bcs zwg7
3300 lda #$ff
3304 sta $66       ; fac negativ
3308 zwg7 lda $8b
3312 sta $c1
3316 lda $8c
3320 sta $c2
3324 lda #$04
3328 sta $c3
3332 'offmac $c1,$c2,$c3
3336 jsr facmem
3340 lda $8c
3344 cmp $fd
3348 beq zwg8
3352 inc $8c
3354 lda $8c
3356 jmp zwg9
3360 zwg8 lda $8b
3364 cmp $fd
3368 beq zwg10
3372 inc $8b
3374 lda $8b
3376 jmp zwg11
3380 zwg10 nop
3381 lda #$0c
3382 sta $fb
3383 ldy #00
3384 loop3 lda calc,y
3386 pha
3388 iny
3390 cpy $fb
3392 bcc loop3
3394 beq loop3
3400 ldy #00
3402 loop6 lda calc[170]4,y
3404 sta calc,y
3406 lda calc[170]8,y
3408 sta calc[170]4,y
3410 iny
3412 cpy #$04
3414 bcc loop6
3420 jsr equiv
3424 ldy #$0c
3426 loop4 pla
3428 sta calc,y
3430 dey
3432 bpl loop4
3440 lda #lc23     ; zeiger auf 1[173]det
3442 sta $47
3444 lda #hc23
3446 sta $48
3450 ldy #00
3452 loop7 lda calc[170]8,y
3454 sta calc,y
3456 iny
3458 cpy #$04
3460 bcc loop7
3468 jsr skpdt
3470 rts
3472 ;
3474 pruef lda $61
3476 cmp #$0a
3478 bcs okey
3480 'text text1
3486 jmp [135]y      ; [135]y[171]modus
3488 okey rts
3500 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
5100 ; variab[195]namen lesen
5102 ; [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
5104 varnam1 lda #00
5106 sta $a5
5108 ;
5110 varnam2 jsr komma
5112 jsr chr[203]t    ; 1.zeichen ho[195]
5114 sta $45       ; und merken
5116 jsr chr[161]    ; 2.zeichen ho[195]
5118 beq z[128]     ; zei[195][128]e
5120 cmp #$2c      ; auf komma pruefen
5122 bne spr1     ; nein, naechstes z.
5124 z[128] lda #0
5126 sta $46       ; 2. zeichen null
5128 dec $7a
5130 jmp [128]
5132 spr1 sta $46  ; 2. zeichen merken
5134 [128] inc $7a   ; programmzeiger [170]1
5136 bne less
5138 inc $7b
5140 less rts
5142 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
5200 ; array[171]kopf suchen
5202 ; [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
5204 ary[165]d jsr varnam1
5206 jmp vcnt
5208 arr jsr varnam2
5210 vcnt ldx $2f  ; zeiger arraytabelle
5212 lda $30
5214 addr4 stx $5f ; zeiger merken
5216 sta $60
5218 cmp $32
5220 ldy #$00
5222 lda ($5f),y   ; name arraytabelle
5224 iny
5226 cmp $45       ; vergleich mit name
5228 bne addr2
5230 lda $46
5232 cmp ($5f),y   ; 2. buchstabe
5234 beq addr3
5236 addr2 iny
5238 lda ($5f),y
5240 clc
5242 adc $5f
5244 tax
5246 iny
5248 lda ($5f),y
5250 adc $60
5252 addr3 bcc addr4
5254 ;
5256 ; adressen und indizes ablegen
5258 ; [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
5260 jsr ary[161]   ; zeiger n. element
5262 clc
5264 adc #4
5266 ldx $a5
5268 sta calc,x   ; n.array adresse lo
5270 inx
5272 lda $59
5274 bcc fl1
5276 inc $59
5278 fl1 lda $59
5280 sta calc,x   ; n.array adresse hi
5282 ldy #01
5284 lda ($58),y  ; anzahl der spalten
5286 inx
5288 sta calc,x
5290 ldy #03
5292 lda ($58),y  ; anzahl der zei[195]
5294 inx
5296 sta calc,x
5298 inx
5300 stx $a5
5302 txa
5304 cmp $fb
5306 bne arr
5308 rts
5310 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
5400 ;
5402 ; ink[143]entiert element-adressen
5404 ; [172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
5406 eladd clc
5408 lda calc
5410 adc #05
5412 sta calc
5414 bcc fl2
5416 inc calc[170]1
5418 fl2 clc
5420 lda calc[170]4
5422 adc #05
5424 sta calc[170]4
5426 bcc fl3
5428 inc calc[170]5
5430 fl3 clc
5432 lda calc[170]8
5434 adc #05
5436 sta calc[170]8
5438 bcc fl4
5440 inc calc[170]9
5442 fl4 rts
5446 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
6000 ;berechnet offset des elementes mit
6002 ;index $c1,$c2  calc[178]startadresse
6004 ;[172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172]
6006 offset ldx calc[170]2,y
6008 dex
6010 stx $fd
6012 ldx calc[170]3,y
6014 dex
6016 stx $fe
6018 lda #00
6020 sta $fb
6022 sta $a5         ; offset[171]resultat
6024 adr4 lda #00
6026 sta $fc
6028 adr2 lda $fc
6030 cmp $c1
6032 bne adr5
6034 lda $fb
6036 cmp $c2
6038 bne adr5
6040 jmp found
6042 adr5 clc
6044 lda $a5
6046 adc #5
6048 sta $a5
6050 lda $fc
6052 cmp $fe
6054 beq adr1
6056 inc $fc
6058 jmp adr2
6060 adr1 lda $fb
6062 cmp $fd
6064 beq adr3
6066 inc $fb
6068 jmp adr4
6070 adr3 lda #$12 ; bad subscript
6072 jmp $a43a     ; fehlerausgabe
6074 found clc
6076 lda calc,y
6078 adc $a5
6080 ldx calc[170]1,y
6082 bcc adr6
6084 inx
6086 adr6 stx $c4
6088 ldy $c4
6089 tax
6090 rts
6092 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
6200 titel lda #$93 ; [156] home
6202 jsr chrout
6204 jsr scrtch
6206 'curs[176] 0,0
6208 'text text10
6210 'text text11
6212 'text text12
6218 'text text13
6220 'curs[176] 5,1
6224 'text text14
6226 'curs[176] 7,1
6228 'text text15
6230 'curs[176] 9,1
6232 'text text16
6234 'curs[176] 11,1
6236 'text text17
6238 'curs[176] 13,1
6240 'text text18
6242 'curs[176] 15,1
6244 'text text19
6246 'curs[176] 17,1
6248 'text text20
6250 'curs[176] 19,1
6252 'text text21
6254 'curs[176] 21,17
6256 'text text22
6278 'curs[176] 21,1
6280 jsr [135]y
6282 rts
6284 ;[171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171][171]
7000 text1 .[198] "matrix ist nicht umkehrbar": .byt 0
7010 text10 .[198] "lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen": .byt 0
7012 text11 .[198] " matrix - express, dr.-ing. uwe christ  ": .byt 0
7014 text12 .[198] "lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlen": .byt 0
7016 text13 .[198] "basic erweiterung fuer matrizenrechnung": .byt 0
7018 text14 .[198] "syntax der neuen befehle:": .byt 0
7020 text15 .[198] "@equ,x,y        (y)=(x)": .byt 0
7022 text16 .[198] "@add,x,y,z      (z)=(x)+(y)": .byt 0
7024 text17 .[198] "@sub,x,y,z      (z)=(x)-(y)": .byt 0
7026 text18 .[198] "@skp,x,k        (x)=k*(x)": .byt 0
7028 text19 .[198] "@mul,x,y,z      (z)=(x)*(y)": .byt 0
7030 text20 .[198] "@det,x,d         d =det(x)": .byt 0
7032 text21 .[198] "@inv,x,y,z      (z)=(x)^-1": .byt 0
7034 text22 .[198] "(y)=adj(x)": .byt 0